home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_02_(08-1984).d64 / android nim (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  222 lines
  1. 0 POKE53281,9:POKE53280,3
  2. 1 PRINT"[147]"TAB(10)"***ANDROID NIM[146]***"
  3. 2 PRINTTAB(18)"BY":PRINTTAB(14)"DON DENNIS"
  4. 3 PRINTTAB(11)"TORONTO, CANADA":PRINTTAB(13)"JULY, 1979[153]"
  5. 5 REM   153 UNDERHILL DR
  6. 6 REM   DON MILLS, CANADA
  7. 7 REM   M3A 2K6
  8. 8 REM   (416)445-3927
  9. 30 SF=64
  10. 31 CL$="                                        "
  11. 32 POKE54277,51:POKE54278,208:POKE54272,100:FS=54276:GS=54273
  12. 33 LN=214:CN=211:KB=198:VL=54296
  13. 35 DEF FNE(X)=(A(P)ORE)AND(NOT(A(P)ANDE)):IQ=.7
  14. 36 DIM B$(18)
  15. 38 : FORI=0TO17
  16. 39 : READB$(I)
  17. 40 : NEXTI
  18. 41 B$(18)="[157] [146][161][161]  [157][157][157][157][157] [188][146][172]  [157][157][157][157][157] [188][146][190][172] [157][157][157][157][157] [146][161] [172][187][157][157][157][157][157] [146][161] [161][161][157][157][157][157][157]"
  19. 42 B$(18)=B$(18)+" [190][161][146][172] [157][157][157][157][157]  [161][161] [157][157][157][157][157] [188][190][146][162] [157][157][157][157][157][145][145][145][145][145][145][145][146]     [157][157][157][157][157]     "
  20. 43 B$(18)=B$(18)+"[157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     [157][157][157][157][157]     "
  21. 44 B$(18)=B$(18)+"[157][157][157][157][157]     [145][153]"
  22. 50 DIM PX(17),PY(17),R(17),CM$(5),A(2),B(2)
  23. 60 FORI=0TO17
  24. 70 : READ PX(I),PY(I)
  25. 75 : R(I)=I
  26. 80 : NEXTI
  27. 105 DIM M$(15)
  28. 110 FORI=0TO15
  29. 115 : READ M$(I)
  30. 120 : NEXTI
  31. 121 FORI=0TO5
  32. 122 : READCM$(I)
  33. 123 : NEXTI
  34. 130 GOSUB2000
  35. 146 IQ=.9
  36. 150 RR=3:B(0)=10:B(1)=15:B(2)=18
  37. 155 Q$="DO YOU NEED INSTRUCTIONS?":GOSUB800
  38. 160 IFA$="N"GOTO200
  39. 165 Q$="WE ARE THE EXECUTIONERS.\ PICK ONE OF US (A B OR C)\ TO DESTROY AS MAN
  40. 166 Q$[178]Q$[170]"Y ANDROIDS\ FROM EACH ROW AS YOU WISH.\ THEN IT IS OUR TURN TO PLAY.
  41. 167 Q$=Q$+"\ THE ONE WHO GETS THE LAST DROID WINS.":GOSUB1500:FORJ=1TO500:NEXT
  42. 200 PRINT"[147]":GOSUB2000:FOR N=3TO17
  43. 205 : GOSUB1000
  44. 210 : R(N)=N
  45. 215 : NEXTN
  46. 220 RR=18:A(0)=7:A(1)=5:A(2)=3
  47. 225 TR=0:Q$="DO YOU WANT TO PLAY FIRST?":GOSUB800
  48. 228 M=0
  49. 230 IFA$="N"GOTO245
  50. 235 IFA$<>"Y"GOTO225
  51. 240 M=1-M
  52. 245 IFRR=3GOTO500
  53. 250 IFM=0GOTO400
  54. 255 TR=0:Q$="IT IS YOUR TURN.\ WHICH ROW?":GOSUB800
  55. 256 Z=1
  56. 260 P=ASC(A$)-65
  57. 265 IFP<0ORP>2THENGOSUB600:GOTO255
  58. 270 IFA(P)=0THENGOSUB650:GOTO255
  59. 275 TR=P:Q$="HOW MANY ANDROIDS?":GOSUB800
  60. 280 Z=ASC(A$)-48
  61. 285 IFZ<1ORZ>9THENGOSUB600:GOTO255
  62. 288 POKELN,PY(P):POKECN,PX(P):PRINT"[145][145]"Z
  63. 290 IFZ>A(P)THENGOSUB650:POKELN,PY(P):POKECN,PX(P):PRINT"[145][145] ":GOTO275
  64. 300 SL=25:GOSUB700
  65. 305 POKELN,PY(P):POKECN,PX(P):PRINT"[145][145] "
  66. 310 GOTO240
  67. 400 E=0:F=0
  68. 405 FORP=0TO2
  69. 410 : E=FNE(0):IFA(P)>FTHENF=A(P):I1=P
  70. 415 : NEXTP
  71. 420 FORP=0TO2
  72. 425 : R=FNE(0):IFR<=A(P)GOTO470
  73. 430 : NEXTP:STOP
  74. 470 IFR=A(P)ORIQ>RND(1)THENP=I1:R=A(P)-INT(RND(1)*(A(P)-1)+1)
  75. 475 TR=P:Z=A(P)-R:Q$="WE CHOOSE"+STR$(Z)+" ANDROID FROM ROW "+CHR$(P+65)+".\"
  76. 476 GOSUB1500
  77. 478 SL=5:GOSUB700
  78. 495 GOTO240
  79. 500 Q$=" WIN.\":IFM<>0THENQ$=" LOSE.\"
  80. 505 Q$="YOU"+Q$
  81. 510 IFM=0THENQ$=Q$+" WE WILL PLAY BETTER NEXT TIME.\":IQ=IQ*IQ*IQ
  82. 515 TR=0:GOSUB1500
  83. 520 Q$="WOULD YOU LIKE ANOTHER GAME?":GOSUB800
  84. 525 IFA$<>"N"GOTO200
  85. 530 Q$="THANK YOU FOR PLAYING.\\":GOSUB1500:RUN
  86. 600 TR=0:R1=0:R2=0:R3=0:SL=17
  87. 605 M1$=M$(9):M2$=M$(10):M3$=M$(11)
  88. 610 GOSUB900
  89. 615 Q$="YOUR ANSWER DOES NOT MAKE SENSE.\"
  90. 616 IFZ=0THENQ$="CAN'T YOU MAKE UP YOUR MIND?\"
  91. 617 GOSUB1500
  92. 620 RETURN
  93. 650 R1=P:R2=P:R3=P:SL=25
  94. 655 M1$=M$(7):M2$=M$(8):M3$=M$(8)
  95. 660 GOSUB900
  96. 665 TR=P:Q$="SORRY, ONLY"+STR$(A(P))+" ANDROIDS LEFT.\"
  97. 670 IFA(P)=0THENQ$="I CAN'T DO IT. I HAVE NONE LEFT.\"
  98. 675 GOSUB1500
  99. 680 RETURN
  100. 700 R1=P:R2=P:R3=P
  101. 705 M1$=M$(6):M2$=M$(8):M3$=M$(8)
  102. 710 GOSUB900
  103. 712 II=B(P)-A(P)
  104. 715 FORI=IITOII+Z-1
  105. 720 : POKELN,PY(I):POKECN,PX(I):PRINT"[145]"B$(6)
  106. 725 : NEXTI
  107. 726 POKEVL,15:POKEFS,17
  108. 727 FORJJ=255TO30STEP-1:POKEGS,JJ:NEXTJJ:POKEFS,16:POKEVL,0
  109. 730 FORI=1TOZ
  110. 735 : GOSUB950
  111. 740 : NEXTI
  112. 788 RETURN
  113. 800 POKEVL,0:POKEKB,0:QU$=Q$:GOSUB1500
  114. 805 T=TI+800
  115. 810 M1$=M$(RND(1)*16)
  116. 815 M2$=M$(RND(1)*16)
  117. 820 M3$=M$(RND(1)*16)
  118. 825 R1=R(RND(1)*RR)
  119. 830 R2=R(RND(1)*RR):IFR2=R1GOTO830
  120. 835 R3=R(RND(1)*RR):IFR3=R2ORR3=R1GOTO835
  121. 840 SL=INT(25*RND(1)+1)
  122. 845 GOSUB900
  123. 850 GETA$:IFA$<>""THENPRINTCL$:RETURN
  124. 855 IFTI>TTHEN Q$=CM$(RND(1)*6)+"\ "+QU$:GOSUB1500:GOTO805
  125. 860 GOTO810
  126. 900 FORC=SL TO1STEP-1
  127. 910 : POKELN,PY(R1):POKECN,PX(R1):PRINT"[145]"B$(ASC(RIGHT$(M1$,C))-SF)
  128. 920 : POKELN,PY(R2):POKECN,PX(R2):PRINT"[145]"B$(ASC(RIGHT$(M2$,C))-SF)
  129. 930 : POKELN,PY(R3):POKECN,PX(R3):PRINT"[145]"B$(ASC(RIGHT$(M3$,C))-SF)
  130. 940 : NEXTC
  131. 945 RETURN
  132. 950 POKELN,PY(R1):POKECN,PX(R1):PRINT"[145]";
  133. 953 POKEVL,15:POKEFS,17
  134. 954 FORJJ=20TO140STEP7:POKEGS,JJ:NEXTJJ:POKEFS,0:POKEVL,0
  135. 955 SP=PX(R1):EP=PX(B(P)-A(P))-5
  136. 959 SP=PX(R1):EP=PX(B(P)-A(P))-5
  137. 960 FORJ=SPTOEPSTEP2:PRINT"[150]  -= [146][157][157][157]";:FORKK=1TO20:NEXTKK,J:PRINT"[153]";
  138. 965 IFINT((EP-SP)/2)*2=EP-SPTHENPRINT"[157]";
  139. 967 POKEVL,15:POKEFS,129:POKEGS,20
  140. 970 PRINT"[145]"B$(18)
  141. 971 FORKK=1TO100:NEXT:POKEFS,128:POKEVL,0
  142. 974 RR=RR-1:A(P)=A(P)-1
  143. 976 A=3
  144. 977 ONP+1GOTO990,985,980
  145. 980 A=A+A(1)
  146. 985 A=A+A(0)
  147. 990 FORJ=ATO16
  148. 991 : R(J)=R(J+1)
  149. 992 : NEXTJ
  150. 998 RETURN
  151. 1000 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(1+7*RND(1));
  152. 1005 IFN>2THENPRINT"[154]";
  153. 1010 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(0);
  154. 1015 PRINT"[153]";
  155. 1020 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(9+5*RND(1));
  156. 1030 POKELN,PY(N):POKECN,PX(N):PRINT"[145]"B$(14+4*RND(1));
  157. 1040 RETURN
  158. 1500 PRINTCL$
  159. 1505 II=0:GOSUB1600
  160. 1510 FORI=1TOLEN(Q$)
  161. 1515 : CH$=MID$(Q$,I,1)
  162. 1517 N=N+1
  163. 1520 : IFCH$=" "THENGOSUB1600
  164. 1525 : IFCH$="\"THENII=I:FORJ=1TO600:NEXTJ:PRINTCL$:GOTO1550
  165. 1530 : POKELN,1:POKECN,I-II:PRINT"[145][157]"CH$;"[153]"
  166. 1550 : NEXTI
  167. 1560 RETURN
  168. 1600 POKELN,PY(TR):POKECN,PX(TR):PRINT"[145]"B$(1);
  169. 1610 PRINT"[157][157][157][161][157]";:GOSUB1700
  170. 1615 PRINT"[188][157]";:GOSUB1700
  171. 1620 PRINT" [157]";:GOSUB1700
  172. 1625 PRINT"[188]":GOSUB1700
  173. 1630 N=0
  174. 1650 RETURN
  175. 1700 POKEVL,15:POKEFS,17
  176. 1705 FORJJ=1TO3*RND(1):POKEGS,20+15*(3-TR+2*RND(1)):FORKK=1TO5:NEXTKK,JJ
  177. 1710 POKEFS,16:RETURN
  178. 2000 FOR N=0TO2
  179. 2010 : GOSUB1000
  180. 2020 : PRINT"[145][145][157][157][157]*[157]"CHR$(N+65)
  181. 2030 : NEXTN:RETURN
  182. 5030 DATA" [157] [145][172][146][157][161][157][157][161][161][157][157][161][161][157][157][157][188][190][162][146][157][157][157][145][145][145][145][145][145][145]"
  183. 5035 DATA" [161][161][157][157][157][190][187][187][146][187][157][157][157][157][188][188][172][146] "
  184. 5040 DATA" [187][187][157][157][157][161][191][190][146] [157][157][157][157][162] [172][146][190]"
  185. 5045 DATA" [187][187][157][157][157][190]  [146][187][157][157][157][157][161][191][190][146] "
  186. 5050 DATA" [161][161][157][157][157][161][172][172][146] [157][157][157][157][146][188] [191][146] "
  187. 5055 DATA"  [161][157][157][157][161] [146][190] [157][157][157][157][188] [172][146] "
  188. 5060 DATA"[161][161][146] [157][157][157][188][172] [146] [157][157][157][157][188][190][172][146] "
  189. 5065 DATA" [161]  [157][157][157][157] [187] [146] [157][157][157][157][188] [172][146] "
  190. 5070 DATA"  [146]"
  191. 5075 DATA"[191][157][157][146][188][187][157][157] [188]"
  192. 5080 DATA"[191][157][157][146] [161][157][157] [188]"
  193. 5085 DATA"[191][157][157][146] [161][157][157] [190]"
  194. 5090 DATA"[191][157][157][146] [161][157][157][188] "
  195. 5100 DATA"[161][157][161][157][157][146] [157] [190]"
  196. 5105 DATA"[187][157][191][157][157][172][146] "
  197. 5110 DATA"[187][157][161][157][157][172][146] "
  198. 5115 DATA"[187][157][161][157][157][161][190]"
  199. 5120 DATA"[187][157][161][157][157][161][188]"
  200. 5230 DATA0,2,3,10,0,18,5,2,10,2,15,2,20,2,25,2,30,2,35,2,13,10,18,10,23,10,28
  201. 5240 DATA10,33,10,21,18,26,18,31,18
  202. 5330 DATA AHDEEDABACABACABACAADHDAB
  203. 5335 DATA AHDAFADAFADEDHDAHAFFHFFAA
  204. 5340 DATA AHANCAAABKPLQAKPINHACCAFG
  205. 5345 DATA JOKPLQKPJOKPLQKPJOINFJHFM
  206. 5350 DATA FGNKLJLJLJLJLFHFFADEQNJNID
  207. 5355 DATA AHAFADAFAHADFDFDFDHDAFGKN
  208. 5360 DATA AHBBBAHADEEEDABACABACADEI
  209. 5365 DATA ABBBAHADEEEDAFADAFADAFAHA
  210. 5370 DATA OJJJPPPPQPQPKKKKKKKKKKKKK
  211. 5137 DATA AAAAAAAAHABBBAAACCAHAAAHA
  212. 5380 DATA AAAAAAAAIIIIIJKLLLIIIIIII
  213. 5385 DATA AAAAAAAANIIIIOPQQQNNNNNNN
  214. 5390 DATA AHABADACAFABADACFBDCFBDHD
  215. 5395 DATA ADEDADEDADEDHAFGFAFGFAFGF
  216. 5400 DATA BDBDBDBDBACFMNCACACACAHCA
  217. 5405 DATA AFGGNQPQPQFAHDEPQNDAFGLIG
  218. 5510 DATACOME ON.,WE HAVEN'T GOT ALL DAY!
  219. 5520 DATAWE HAVE BETTER THINGS TO DO.
  220. 5530 DATAJUST ANSWER THE QUESTION.,IT ISN'T THAT DIFFICULT!
  221. 5540 DATATHERE IS A LIMIT TO OUR PATIENCE!
  222.